-- file: ch07/toupper-lazy4.hs
import Data.Char (toUpper)

main = interact (map toUpper)